home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzsample / htmstart.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  786 b   |  27 lines
  1. *- This is the stub which you should copy (place the modified version in
  2. *- your Wizard's directory), and modify to call your wizard.
  3.  
  4. parameters cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  5. private cClassLib
  6.  
  7. m.cClassLib = set('classlib')
  8.  
  9. *- Modify here to reference your wizard's .vcx.
  10. set classlib to ("HTMLWiz")
  11.  
  12. public oWizard
  13.  
  14. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  15. oWizard = createobj("HTMLWizard", m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  16.     m.p5, m.p6, m.p7, m.p8, m.p9)
  17.  
  18. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  19.     oEngine.aEnvironment[17,1] = m.cClassLib
  20.     oWizard.Show
  21. endif
  22. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  23.     *- It must be modeless, so leave it alone
  24. else
  25.     release oWizard
  26. endif
  27.